program testclass1;

class testclass1

BEGIN

   VAR XRay : ARRAY[0 .. 4] OF integer; 
      AA       : integer;

FUNCTION testfunc1;
   VAR 
      BB       : integer;
BEGIN	   
      XRay[3] := 2;
      PRINT XRay[3];
      testfunc2;
      PRINT BB
END;

FUNCTION testfunc2;
   VAR 
      CC       : integer;
BEGIN	   
      CC := 5
END

END


.

